home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / shiftl.z / shiftl
Encoding:
Text File  |  2002-10-03  |  3.0 KB  |  75 lines
  1. SHIFTL(3I)                                            Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      SSHHIIFFTTLL - Performs a left shift with zero fill
  6.  
  7. SSYYNNOOPPSSIISS
  8.      SSHHIIFFTTLL (([II==]_i,,[JJ==]_j))
  9.  
  10. IIMMPPLLEEMMEENNTTAATTIIOONN
  11.      UNICOS, UNICOS/mk, IRIX systems
  12.  
  13.      CF90, MIPSpro 7 Fortran 90
  14.  
  15. SSTTAANNDDAARRDDSS
  16.      Fortran extension
  17.  
  18. DDEESSCCRRIIPPTTIIOONN
  19.      The SSHHIIFFTTLL intrinsic function performs a left shift with zero fill of
  20.      _i by _j bits.  It accepts the following arguments:
  21.  
  22.      _i         The value to be shifted.  _i can be of type Boolean, integer,
  23.                real, or Cray pointer.
  24.  
  25.      _j         The number of bits to shift the value.  Must be of type
  26.                integer or Boolean.  _j must be within the range
  27.                0 <= _j <=_s_i_z_e, where _s_i_z_e is the size, in bits, of _i.  That
  28.                is, if _i is a 64-bit object, _j must be within the range
  29.                0 <= _j <= 64.
  30.  
  31.      On UNICOS systems, an object is 64 bits.  On UNICOS/mk systems, an
  32.      object is 32 bits or 64 bits.  On IRIX systems, an object is 8 bits,
  33.      16 bits, 32 bits, or 64 bits.
  34.  
  35.      SSHHIIFFTTLL is an elemental function.  The name of this intrinsic cannot be
  36.      passed as an argument.
  37.  
  38. NNOOTTEESS
  39.      This is an outmoded routine.  Refer to the _F_o_r_t_r_a_n _L_a_n_g_u_a_g_e _R_e_f_e_r_e_n_c_e
  40.      _M_a_n_u_a_l, _V_o_l_u_m_e _2, for information about outmoded features and their
  41.      preferred standard alternatives.
  42.  
  43.      The bit representation of the logical data type is not consistent
  44.      among UNICOS and UNICOS/mk systems.  For further details, see your
  45.      compiler's reference manuals.
  46.  
  47. RREETTUURRNN VVAALLUUEESS
  48.      SSHHIIFFTTLL returns a value of type Boolean on UNICOS and UNICOS/mk
  49.      systems.  It returns an integer result on IRIX systems.
  50.  
  51. EEXXAAMMPPLLEESS
  52.      The following section of Fortran code shows the SSHHIIFFTTLL function used
  53.      in the case where _i is of type integer.  The bit pattern of _i and the
  54.      bit pattern of the result are also given.  For simplicity, a 16-bit
  55.      object is used.
  56.  
  57.           INTEGER I1, I2, I3
  58.           ...
  59.           I2 = 5
  60.           I3 = SHIFTL(I1,I2)
  61.  
  62.            ---------------------------------------------------------------
  63.           | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
  64.            ---------------------------------------------------------------
  65.                                       I1 (_i)
  66.  
  67.            ---------------------------------------------------------------
  68.           | 1 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
  69.            ---------------------------------------------------------------
  70.                                       I3 (result)
  71.  
  72. SSEEEE AALLSSOO
  73.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  74.      man page.
  75.